1 REM *********************************
2 REM *                               *
3 REM *    DEMO-PROGRAMM ZUM THEMA    *
4 REM *                               *
5 REM *        TEXT UND GRAFIK        *
6 REM *      AUF EINEM BILDSCHIRM     *
7 REM *                               *
8 REM *  HEIMO PONNATH  HAMBURG 1984  *
9 REM *                               *
10 REM*********************************
15 CLR:PRINTCHR$(147):Z=10:S=10:GOSUB1000:PRINT"ZUVOR NOCH EINE FRAGE:":PRINT
20 INPUT"IST HIRES-3 KOMPLETT GELADEN (J/N)";A$
25 IFA$="N"THENPRINT:PRINTCHR$(18)"BRAUCHEN SIE ABER!"CHR$(146):END
30 POKE52,128:POKE56,128:SYS37498:PRINTCHR$(147)
40 REM ++++++ SINUSKURVE ZEICHNEN +++++
45 DEFFNA(X)=SIN(X):XU=-2*(null):XO=2*(null):YU=-2.5:YO=2:TRS,XU,XO,YU,YO:HFL,6,14
50 FUNKT,A,XU,XO:TLN,XU,0,XO,0:TLN,0,YU,0,YO:REC,0,0,319,199
55 REM ++++++ DER TEX-BEFEHL ++++++++++
60 TEX,"DIES IST EINE SINUSKURVE",3,8
65 REM +++++ BILDSCHIRMAUFSPALTUNG ++++
70 SYS35256:SYS34647:Z=21:S=0:GOSUB1000:PRINT"WUENSCHEN SIE EINE SKALIERUNG";
75 INPUT"(J/N)";A$:IFA$="N"THEN115
80 REM +++++++ SKALIERUNG  ++++++++++++
85 DEFFNX(X)=INT(39*(X+2*(null))/(4*(null))):DEFFNY(Y)=INT(24*(2-Y)/4.5)
90 FORX=-6TO6:TLN,X,0,X,-.1:X$=STR$(X):A=FNY(-.3):B=FNX(X)
95 TEX,X$,A,B:NEXTX
100 TLN,0,1,-.2,1:TLN,0,-1,-.2,-1:A=FNY(1):B=FNX(.5):TEX,"1",A,B:A=FNY(-1)
105 B=FNX(.3):TEX,"-1",A,B:CLR:INPUT"HARDCOPY (J/N)";A$:IFA$="J"THENGOSUB2000
110 REM +++++ PROGRAMMENDE ++++++++++++
115 Z=21:S=0:GOSUB1000:PRINT"GEBEN SIE NACH READY EIN:SYS35377:HOF "
120 END
999 REM ++++++ UP CURSOR SETZEN +++++++
1000 POKE214,Z:POKE211,S:SYS58640:RETURN
1999 REM +++++++ UP HARDCOPY ++++++++++
2000 SYS35377:OPEN1,4,10:PRINT#1:CLOSE1:SYS34865:SYS35256:RETURN